Attribute VB_Name = "modTypes"
Option Explicit

Public Type PlayerInvC
    Item As Integer
    count As Integer
End Type

Public Type PlayerC
    Password As String
    Login As String
    IP As String
    InGame As Boolean
    Sec_Word As String
    Name As String
    Sex As String
    LEVEL As Byte
    Exp As Long
    Access As Byte
    Speed As Integer
    HP As Integer
    MP As Integer
    str As Byte
    DEF As Byte
    INT As Byte
    Inv(1 To MAX_INV) As PlayerInvC
    Spell(1 To MAX_PLAYERSPELLS) As Integer 'Write Indexes of spells
    IsBattling As Boolean
    MAXHP As Integer
    MAXMP As Integer
    Class As Byte
    created As Boolean 'Is user Created(like char)
    
    'Equipment
    Head As Integer
    Body As Integer
    Weapon As Integer
    Legs As Integer
    Foot As Integer
    Hands As Integer
End Type

Public Type ItemC
    Name As String
    Desc As String * 150
    Type As Byte 'example: 1=Weapon, 2=Arrow
    StrReq As Long
    DefReq As Long
    MagicReq As Long
    MinDmg As Long
    MaxDmg As Long
    
    addhp As Long
    addmp As Long
    addSP As Long
    AddStr As Long
    AddDef As Long
    AddInt As Long
    AddDmg As Integer
    AddMinDmg As Integer
    AddMaxDmg As Integer
    AddSpeed As Long
    AttackSpeed As Long
    Price As Long
End Type

Public Type SpellC
    Name As String
    LevelReq As Long
    INTReq As Long
    MPCost As Long
    Type As Long
    Dmg As Long

    addhp As Long
    addmp As Long
    Element As Long
End Type

Public Type ElementC
    Name As String
    Strong As Integer
    Weak As Integer
End Type

Public Type ArrowC
    Name As String
    Dmg As Long
    Range As Byte
    Amount As Integer
End Type

Public Type StatC
    LEVEL As Long
    Exp As Long
    str As Long
    DEF As Long
    INT As Long
    Speed As Long
End Type
